home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Interval.p < prev    next >
Text File  |  2000-04-24  |  3KB  |  76 lines
  1. pTempVar <- <primitive 110 14 >
  2. <primitive 112 pTempVar 1  " shallowCopy " \
  3.   #( #[ 16r10 16r11 16r12 16rD4 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " deepCopy " \
  7.   #( #[ 16r10 16r11 16r12 16rD4 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " removeKey:ifAbsent: " \
  11.   #( #[ 16r20 16r30 16rBC 16rF2 16r22 16rA5 16rF3 16rF5] \
  12.     #( 'cannot remove from Interval'  )) >
  13.  
  14. <primitive 112 pTempVar 4  " add: " \
  15.   #( #[ 16r20 16r30 16rBC 16rF3 16rF5] \
  16.     #( 'cannot store into Interval'  )) >
  17.  
  18. <primitive 112 pTempVar 5  " at:put: " \
  19.   #( #[ 16r20 16r30 16rBC 16rF3 16rF5] \
  20.     #( 'cannot store into Interval'  )) >
  21.  
  22. <primitive 112 pTempVar 6  " coerce: " \
  23.   #( #[ 16r21 16rAE 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 7  " printString " \
  27.   #( #[ 16r30 16r10 16rA9 16r0B 16r11 16r31 16r0B 16r11 16r11 16rA9 16r0B \
  28.         16r11 16r32 16r0B 16r11 16r12 16rA9 16r0B 16r11 16rF3 16rF5 \
  29.        ] \
  30.     #( 'Interval ' ' to ' ' by '  )) >
  31.  
  32. <primitive 112 pTempVar 8  " at:ifAbsent: " \
  33.   #( #[ 16r10 16r12 16r21 16r51 16rC1 16rC2 16rC0 16r73 16r20 16r23 16r0B \
  34.         16r1F 16rF7 16r03 16r23 16rF8 16r03 16rF2 16r22 16rA5 16rF3 \
  35.         16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 9  " next " \
  39.   #( #[ 16r13 16r12 16rC0 16r63 16r20 16r13 16r0B 16r1F 16rF7 16r01 16r13 \
  40.         16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " last " \
  44.   #( #[ 16r11 16r63 16r20 16r13 16r0B 16r1F 16rF7 16r01 16r13 16rF3 16rF5 \
  45.        ] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 11  " first " \
  49.   #( #[ 16r10 16r63 16r20 16r13 16r0B 16r1F 16rF7 16r01 16r13 16rF3 16rF5 \
  50.        ] \
  51.     #(  )) >
  52.  
  53. <primitive 112 pTempVar 12  " inRange: " \
  54.   #( #[ 16r12 16rAA 16rF7 16r0A 16r21 16r10 16rCB 16rFC 16r03 16r21 16r11 \
  55.         16rC8 16rF8 16r09 16rF2 16r21 16r11 16rCB 16rFC 16r03 16r21 \
  56.         16r10 16rC8 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 13  " size " \
  60.   #( #[ 16r12 16rAA 16rF7 16r05 16r11 16r10 16rC7 16rF8 16r04 16rF2 16r10 \
  61.         16r11 16rC7 16rF7 16r03 16r50 16rF8 16r09 16rF2 16r11 16r10 \
  62.         16rC1 16r12 16r0B 16r12 16r51 16rC0 16rF3 16rF5] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 14  " from:to:by: " \
  66.   #( #[ 16r21 16rF1 16r60 16r63 16r22 16r61 16r23 16r62 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 98 #Interval \
  70.   <primitive 97 #Interval #SequenceableCollection #AmigaTalk:General/Interval.st \
  71.    #(  #lower #upper #step #current ) \
  72.    #( #shallowCopy #deepCopy #removeKey:ifAbsent: #add: #at:put: #coerce:  \
  73.        #printString #at:ifAbsent: #next #last #first #inRange: #size #from:to:by:  ) \
  74.   pTempVar 4 5 >>
  75.  
  76.